home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #1 / Amiga Plus 1995 #1.iso / fish-disketten / fish_691-700 / d695 / icalc / scripts / arraytest.ic < prev    next >
Text File  |  1994-12-13  |  691b  |  34 lines
  1. # tests out arrays in general, and routines in array.ic in particular
  2.  
  3. read "array.ic"            # doesn't hurt to re-read it...
  4.  
  5. silent                # doesn't affect echo or display
  6.  
  7. array ta1[5] = {1,2,3,4,5};    # test array 1
  8. array ta2[5]            # test array 2
  9.  
  10. echo "\nShould be 1 .. 5"
  11. display(ta1)
  12.  
  13. echo "\nShould be 1! .. 5!"
  14. map(ta1,fact(x))        # ta1[i] = ta1[i]!
  15. display(ta1)
  16.  
  17. echo "\nShould be 1² .. 5²"
  18. fill(ta2, n*n)            # fill it with first 5 squares
  19. display(ta2)
  20.  
  21. echo "\nShould be 1² .. 5²"
  22. copy(ta1, ta2)            # ta1[i] = ta2[i]
  23. display(ta1)
  24.  
  25. echo "\nShould be 1 .. 5, then 1^3 .. 5^3"
  26. tabulate(ta1,ta2,1,5,x^3)
  27. display(ta1)
  28. echo
  29. display(ta2)
  30.  
  31. echo "\nThat's all folks!"
  32.  
  33. verbose                # results/prompt back on
  34.